home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / reviewed / volume01 / mawk / 1.1 / patch01 < prev    next >
Encoding:
Internet Message Format  |  1992-03-31  |  25.8 KB
  1. From: Mike Brennan <brennan@boeing.com>
  2. Subject: v01i070: mawk - (Ver. 1.1) An interpreter for the AWK language, Patch01
  3. Newsgroups: comp.sources.reviewed
  4. Approved: csr@calvin.dgbt.doc.ca
  5.  
  6. Submitted-by: Mike Brennan <brennan@boeing.com>
  7. Posting-number: Volume 1, Issue 70
  8. Archive-name: mawk/patch01
  9. Patch-To: mawk: Volume 1, Issue 50-68
  10.  
  11. This is patch1 for mawk1.1.
  12. It updates mawk1.1 to mawk1.1.1
  13.  
  14. Changes:
  15.  
  16. 1) fixed bug which caused 
  17.  
  18.     mawk 'program'  var=value
  19.  
  20. without files on the command line to sporadically fail.
  21.  
  22. 2) fixed bug which caused
  23.  
  24.     getline <=
  25.  
  26. to be mistaken for input redirection.
  27.  
  28. 3) Changed rexp1.c to work around a bug in sun SC1.0 compiler.
  29.  
  30. 4) Minor improvements to build_mawk script.
  31.  
  32. 5) changed the name of ultrix42_mips.h to ultrix42mips.h so
  33.    the filename is 14 characters.
  34.  
  35. 6) printf() and sprintf() can now have more arguments than 
  36. conversions in the format string.  This allows a "poor man's" varargs
  37. functionality for user functions that do output.
  38.  
  39. 7) new configurations:
  40.  
  41.       next, sgi, aix
  42.  
  43. 8) removed HAVE_PRINTF_HD define as too obscure to be useful.
  44.  
  45. 9) added missing config/apollo.h file.
  46.  
  47.  
  48. Directions:
  49.  
  50.   When you unshar the file below, you'll get two files:
  51.   a /bin/sh script, apply1, and diffs1 to use with the patch program.
  52.  
  53.   Move both apply1 and diffs1 to your mawk1.1 directory and run
  54.  
  55.      /bin/sh  apply1
  56.  
  57.  
  58.  
  59. # This is a shell archive.  Remove anything before this line,
  60. # then unpack it by saving it in a file and typing "sh file".
  61. #
  62. # Wrapped by mlssun12!brennan on Tue Mar 31 06:47:48 PST 1992
  63. # Contents:  apply1 diffs1
  64.  
  65. echo x - apply1
  66. sed 's/^@//' > "apply1" <<'@//E*O*F apply1//'
  67. #!/bin/sh
  68.  
  69. # apply patch1 to mawk1.1
  70.  
  71.  
  72.  
  73. # make sure there is not an existing ultrix42mips.h
  74. if [ -f config/ultrix42mips.h ]
  75.    then
  76.    mv config/ultrix42mips.h config/ultrix42.old
  77. fi
  78.  
  79. patch -p  < diffs1
  80.  
  81. @//E*O*F apply1//
  82. chmod u=rwx,g=rx,o=rx apply1
  83.  
  84. echo x - diffs1
  85. sed 's/^@//' > "diffs1" <<'@//E*O*F diffs1//'
  86. *** /tmp/,RCSt1a12419    Tue Mar  3 17:14:36 1992
  87. --- packing.list    Tue Mar  3 16:34:25 1992
  88. ***************
  89. *** 1,6 ****
  90.   
  91.   ################################################
  92. ! # These files form the mawk distribution 1.1
  93.   #
  94.   # Mawk is an implementation of the AWK Programming Language as
  95.   # defined and described in Aho, Kernighan and Weinberger, The
  96. --- 1,6 ----
  97.   
  98.   ################################################
  99. ! # These files form the mawk distribution 1.1.1
  100.   #
  101.   # Mawk is an implementation of the AWK Programming Language as
  102.   # defined and described in Aho, Kernighan and Weinberger, The
  103. ***************
  104. *** 11,16 ****
  105. --- 11,17 ----
  106.   packing.list        this file
  107.   README            description of mawk 1.1
  108.   NEW            changes from 1.0 to 1.1
  109. + PATCHES            changes from 1.1 to 1.1.1
  110.   INSTALL            installation instructions
  111.   COPYING            GNU General Public License, version 2    
  112.   ACKNOWLEDGMENT
  113. ***************
  114. *** 92,98 ****
  115.   config/Idefault.h
  116.   config/template.h
  117.   config/ultrix_vax.h
  118. ! config/ultrix42_mips.h
  119.   config/bsd43_vax.h
  120.   config/sun_os40.h
  121.   config/sun_os41.h
  122. --- 93,99 ----
  123.   config/Idefault.h
  124.   config/template.h
  125.   config/ultrix_vax.h
  126. ! config/ultrix42mips.h
  127.   config/bsd43_vax.h
  128.   config/sun_os40.h
  129.   config/sun_os41.h
  130. ***************
  131. *** 106,111 ****
  132. --- 107,115 ----
  133.   config/dynix.h
  134.   config/atarist.h
  135.   config/mips.h
  136. + config/next.h
  137. + config/sgi.h
  138. + config/apollo.h
  139.   #######################
  140.   # directory:  test      testing and benchmarking directory
  141.   test/mawktest           scripts to test mawk compiled OK
  142. *** /dev/null    Tue Mar  3 12:53:03 1992
  143. --- PATCHES    Tue Mar  3 16:46:02 1992
  144. ***************
  145. *** 0 ****
  146. --- 1,34 ----
  147. + 
  148. + 
  149. + patch1:  mawk1.1 to mawk1.1.1
  150. + 
  151. + 1) fixed bug which caused 
  152. + 
  153. +     mawk 'program'  var=value
  154. + 
  155. + without files on the command line to sporadically fail.
  156. + 
  157. + 2) fixed bug which caused
  158. + 
  159. +     getline <=
  160. + 
  161. + to be mistaken for input redirection.
  162. + 
  163. + 3) Changed rexp1.c to work around a bug in sun SC1.0 compiler.
  164. + 
  165. + 4) Minor improvements to build_mawk script.
  166. + 
  167. + 5) changed the name of ultrix42_mips.h to ultrix42mips.h so
  168. +    the filename is 14 characters.
  169. + 
  170. + 6) printf() and sprintf() can now have more arguments than 
  171. + conversions in the format string.  This allows a "poor man's" varargs
  172. + functionality for user functions that do output.
  173. + 
  174. + 7) new configurations:
  175. + 
  176. +       next, sgi, aix
  177. + 
  178. + 8) removed HAVE_PRINTF_HD define as too obscure to be useful.
  179. + 
  180. + 9) added missing config/apollo.h file.
  181. *** /tmp/,RCSt1a12423    Tue Mar  3 17:14:39 1992
  182. --- ACKNOWLEDGMENT    Tue Mar  3 16:48:00 1992
  183. ***************
  184. *** 9,22 ****
  185.   MSC and Mac ports and wrote .bat files for the tests.
  186.   Another or maybe the same reviewer did the Dynix port.
  187.   
  188. ! Layne Lommen ported mawk to the ApolloSR10.3.
  189.   
  190. - Ed Ferguson ported mawk to MIPS M2000     C 2.20 (4.52).
  191. - 
  192. - Jwahar R. Bammi ported mawk to AtariST.
  193. - 
  194.   The DOS version is a lot better thanks to suggestions and testing
  195. ! from Ed Ferguson, Jack Fitts, Nadav Horesh and Michael Golan.
  196.   
  197.   Arnold Robbins kept me current on POSIX standards for AWK, and
  198.   explained some of the "dark corners".
  199. --- 9,28 ----
  200.   MSC and Mac ports and wrote .bat files for the tests.
  201.   Another or maybe the same reviewer did the Dynix port.
  202.   
  203. ! Ports to new systems:
  204. !     Layne Lommen        ApolloSR10.3
  205. !     Ed Ferguson        MIPS M2000 C2.20 OS4.52
  206. !     Jwahar R. Bammi        Atari ST
  207. !     Berry Kercheval        SGI IRIX 4.0.1
  208. !     Andy Mason        Next 2.1
  209. !     Mike Carlton        Next 2.1
  210. !     Elliot Jaffe        AIX 3.1
  211.   
  212.   The DOS version is a lot better thanks to suggestions and testing
  213. ! from Ed Ferguson, Jack Fitts, Nadav Horesh, Michael Golan and
  214. ! Conny Ohstrom.
  215.   
  216.   Arnold Robbins kept me current on POSIX standards for AWK, and
  217.   explained some of the "dark corners".
  218. + 
  219. + 
  220. *** /tmp/,RCSt1a12426    Tue Mar  3 17:14:41 1992
  221. --- UCONFIG    Tue Mar  3 16:45:58 1992
  222. ***************
  223. *** 29,34 ****
  224. --- 29,37 ----
  225.   apolloSR10.3
  226.   dynix
  227.   mips
  228. + next                cc is gcc
  229. + sgi
  230. + aix
  231.   
  232.   atarist                cross compile with gcc
  233.   
  234. ***************
  235. *** 98,102 ****
  236. --- 101,113 ----
  237.   mips
  238.          MIPS M2000     C 2.20 (4.52)
  239.   
  240. + next
  241. +     Next OS 2.1
  242. + 
  243. + sgi    
  244. +     IRIX 4.0.1
  245. + 
  246. + aix
  247. +     RS/6000        running AIX 3.1
  248.   atarist
  249.       atari ST/StE/TT series with gcc
  250. *** /tmp/,RCSt1a12429    Tue Mar  3 17:14:43 1992
  251. --- build_mawk    Tue Mar  3 16:46:00 1992
  252. ***************
  253. *** 10,15 ****
  254. --- 10,16 ----
  255.   #            build_mawk MF -- to get a generic Makefile
  256.   #
  257.   
  258. + 
  259.   progname=`basename $0`
  260.   
  261.   
  262. ***************
  263. *** 23,29 ****
  264.       exit 1 
  265.   fi
  266.   
  267. ! config=$1
  268.   shift
  269.   
  270.   [ $# != 0 ] && eval "$@"
  271. --- 24,30 ----
  272.       exit 1 
  273.   fi
  274.   
  275. ! arg1=$1
  276.   shift
  277.   
  278.   [ $# != 0 ] && eval "$@"
  279. ***************
  280. *** 32,38 ****
  281.   [ "$CC" = "" ] && CC=cc
  282.   
  283.   
  284. ! case $config in
  285.   
  286.   
  287.   sun_os40)
  288. --- 33,39 ----
  289.   [ "$CC" = "" ] && CC=cc
  290.   
  291.   
  292. ! case $arg1 in
  293.   
  294.   
  295.   sun_os40)
  296. ***************
  297. *** 61,67 ****
  298.       config=generic.h  ;;
  299.   
  300.   ultrix42_mips)
  301. !     config=ultrix42_mips.h
  302.       cflags='-O -Olimit 700' ;;
  303.   
  304.   ultrix41_vax)
  305. --- 62,68 ----
  306.       config=generic.h  ;;
  307.   
  308.   ultrix42_mips)
  309. !     config=ultrix42mips.h
  310.       cflags='-O -Olimit 700' ;;
  311.   
  312.   ultrix41_vax)
  313. ***************
  314. *** 104,114 ****
  315.       
  316.   mips)
  317.       config=mips.h
  318. !     cflags='-O -systype bsd43' ;;
  319.   
  320.   MF)  ;;
  321.   
  322. ! *)  echo "$progname: $1: unrecognized configuration" 1>&2
  323.       exit 1 ;;
  324.   esac
  325.   
  326. --- 105,126 ----
  327.       
  328.   mips)
  329.       config=mips.h
  330. !     cflags='-O -Olimit 700 -systype bsd43' ;;
  331.   
  332. + sgi)
  333. +     config=sgi.h
  334. +     cflags='-O -cckr -w' ;;
  335. + 
  336. + next)
  337. +     config=next.h  ;;
  338. + 
  339. + aix)
  340. +     config=generic.h ;;
  341. + 
  342. + 
  343.   MF)  ;;
  344.   
  345. ! *)  echo "$progname: $arg1: unrecognized configuration" 1>&2
  346.       exit 1 ;;
  347.   esac
  348.   
  349. ***************
  350. *** 117,127 ****
  351.   [ "$ar" = "" ] && ar=ar
  352.   [ "$mathlib" = "" ] && mathlib=-lm
  353.   
  354.   echo generating a Makefile
  355.   
  356.   (
  357.   echo "# This Makefile was generated by"
  358. ! echo '#'"   $0 $config $*"
  359.   sed -e 1,5d   \
  360.       -e "s/%CC%/$CC/" \
  361.       -e "s/%CFLAGS%/$cflags/" \
  362. --- 129,148 ----
  363.   [ "$ar" = "" ] && ar=ar
  364.   [ "$mathlib" = "" ] && mathlib=-lm
  365.   
  366. + # set CFLAGS for gcc
  367. + if [ $CC = gcc ]
  368. +    then  #determine gcc version
  369. +    if gcc -v  2>&1 | egrep 'version 2' >/dev/null
  370. +       then  cflags=-O2
  371. +       else  cflags=-O
  372. +    fi
  373. + fi
  374. + 
  375.   echo generating a Makefile
  376.   
  377.   (
  378.   echo "# This Makefile was generated by"
  379. ! echo '#'"   $0 $arg1 $*"
  380.   sed -e 1,5d   \
  381.       -e "s/%CC%/$CC/" \
  382.       -e "s/%CFLAGS%/$cflags/" \
  383. ***************
  384. *** 140,147 ****
  385.   # it should exist
  386.   [ -f parse.c ] &&  { echo touching parse.c  ; touch parse.c ; }
  387.   
  388.   echo make -f Makefile
  389.   make -f Makefile
  390. - 
  391.   
  392.   
  393. --- 161,181 ----
  394.   # it should exist
  395.   [ -f parse.c ] &&  { echo touching parse.c  ; touch parse.c ; }
  396.   
  397. + echo 'ready to run: make -f Makefile'
  398. + # echo without newline differs from system to system
  399. + awk 'BEGIN{
  400. + printf "do you want to check or edit the Makefile first? [n] "
  401. + }' < /dev/null  # some old awks need the /dev/null
  402. + 
  403. + read answer
  404. + case "$answer" in
  405. +   [yY]*)  echo 
  406. +       echo 'To restart run:  make -f Makefile'
  407. +       echo
  408. +       exit 0 ;;
  409. + esac
  410. + 
  411.   echo make -f Makefile
  412.   make -f Makefile
  413.   
  414.   
  415. *** /tmp/,RCSt1a12432    Tue Mar  3 17:14:46 1992
  416. --- Makefile.in    Tue Mar  3 16:59:30 1992
  417. ***************
  418. *** 92,97 ****
  419. --- 92,98 ----
  420.   
  421.   scancode.c :  makescan.c  scan.h
  422.       $(CC) -o makescan.exe  makescan.c
  423. +     rm -f scancode.c
  424.       ./makescan.exe > scancode.c
  425.       rm makescan.exe
  426.   
  427. *** /tmp/,RCSt1a12435    Tue Mar  3 17:14:48 1992
  428. --- fin.c    Fri Feb 21 13:30:50 1992
  429. ***************
  430. *** 11,16 ****
  431. --- 11,20 ----
  432.   ********************************************/
  433.   
  434.   /*$Log:    fin.c,v $
  435. +  * Revision 5.2  92/02/21  13:30:08  brennan
  436. +  * fixed bug that free'd FILENAME twice if 
  437. +  * command line was var=value only
  438. +  * 
  439.    * Revision 5.1  91/12/05  07:56:02  brennan
  440.    * 1.1 pre-release
  441.    * 
  442. ***************
  443. *** 370,375 ****
  444. --- 374,381 ----
  445.   
  446.     if ( main_fin )  FINclose(main_fin) ;
  447.     cell_destroy( FILENAME ) ;
  448. +   FILENAME->type = C_NOINIT ; 
  449. +      /* so don't free again if we go to set_main_to_stdin() */
  450.     cell_destroy( FNR ) ;
  451.     FNR->type = C_DOUBLE ;
  452.     FNR->dval = 0.0 ;
  453. ***************
  454. *** 396,402 ****
  455.   
  456.       /* try to open it -- we used to continue on failure, 
  457.          but posix says we should quit */
  458. !     if ( ! (main_fin = FINopen( string(cp)->str, 1 )) ) exit(1) ;
  459.   
  460.       /* success */
  461.       (void) cellcpy(FILENAME , cp ) ;
  462. --- 402,408 ----
  463.   
  464.       /* try to open it -- we used to continue on failure, 
  465.          but posix says we should quit */
  466. !     if ( ! (main_fin = FINopen( string(cp)->str, 1 )) ) mawk_exit(1) ;
  467.   
  468.       /* success */
  469.       (void) cellcpy(FILENAME , cp ) ;
  470. ***************
  471. *** 456,461 ****
  472. --- 462,468 ----
  473.       case  ST_VAR :
  474.       case  ST_NR : /* !! no one will do this */
  475.           cp = stp->stval.cp ;
  476. +     cell_destroy(cp) ;
  477.           break ;
  478.   
  479.       case  ST_FIELD :
  480. ***************
  481. *** 477,483 ****
  482.     p = rm_escape( strcpy((char*)zmalloc(len), p) ) ;
  483.     cp->ptr = (PTR) new_STRING(p) ;
  484.     zfree(p,len) ;
  485. !   check_strnum(cp) ;
  486.     if ( fp ) /* move it from cell to pfield[] */
  487.     { field_assign(fp, cp) ; free_STRING(string(cp)) ; }
  488.     return 1 ;
  489. --- 484,490 ----
  490.     p = rm_escape( strcpy((char*)zmalloc(len), p) ) ;
  491.     cp->ptr = (PTR) new_STRING(p) ;
  492.     zfree(p,len) ;
  493. !   check_strnum(cp) ;  /* sets cp->type */
  494.     if ( fp ) /* move it from cell to pfield[] */
  495.     { field_assign(fp, cp) ; free_STRING(string(cp)) ; }
  496.     return 1 ;
  497. *** /tmp/,RCSt1a12438    Tue Mar  3 17:14:50 1992
  498. --- mawk.h    Tue Mar  3 16:34:56 1992
  499. ***************
  500. *** 12,17 ****
  501. --- 12,20 ----
  502.   
  503.   
  504.   /*   $Log:    mawk.h,v $
  505. +  * Revision 5.4  92/03/03  16:34:41  brennan
  506. +  * conditional around open() proto
  507. +  * 
  508.    * Revision 5.3  92/01/09  08:46:58  brennan
  509.    * cell destroy macro
  510.    * 
  511. ***************
  512. *** 146,156 ****
  513. --- 149,168 ----
  514.   int   PROTO( binmode, (void)) ;
  515.   
  516.   void  PROTO( exit, (int) ) ;
  517. + 
  518.   #ifdef THINK_C
  519.   #include <unix.h>
  520.   #else
  521.   int   PROTO( close, (int) ) ;
  522. + 
  523. + /* ANSI compilers won't like open() if they've ever seen open as
  524. +    int open(char *,int, ...).  If so remove it.
  525. + */
  526. + 
  527. + #ifndef _IBMR2 /* AIX */
  528.   int   PROTO( open, (char *,int, int) ) ;
  529. + #endif
  530. + 
  531.   int   PROTO( read, (int , PTR, unsigned) ) ;
  532.   #endif
  533.   
  534. *** /tmp/,RCSt1a12441    Tue Mar  3 17:14:52 1992
  535. --- patchlev.h    Tue Mar  3 16:42:33 1992
  536. ***************
  537. *** 1,3 ****
  538.   /* mawk 1.1 */
  539. ! #define  PATCHLEVEL    0
  540. ! #define  PATCH_STRING    ""
  541. --- 1,3 ----
  542.   /* mawk 1.1 */
  543. ! #define  PATCHLEVEL    1
  544. ! #define  PATCH_STRING    ".1"
  545. *** /tmp/,RCSt1a12444    Tue Mar  3 17:14:54 1992
  546. --- print.c    Mon Feb 24 10:53:13 1992
  547. ***************
  548. *** 1,7 ****
  549.   
  550.   /********************************************
  551.   print.c
  552. ! copyright 1991, Michael D. Brennan
  553.   
  554.   This is a source file for mawk, an implementation of
  555.   the AWK programming language.
  556. --- 1,7 ----
  557.   
  558.   /********************************************
  559.   print.c
  560. ! copyright 1992, 1991.  Michael D. Brennan
  561.   
  562.   This is a source file for mawk, an implementation of
  563.   the AWK programming language.
  564. ***************
  565. *** 11,16 ****
  566. --- 11,20 ----
  567.   ********************************************/
  568.   
  569.   /* $Log:    print.c,v $
  570. +  * Revision 5.2  92/02/24  10:52:16  brennan
  571. +  * printf and sprintf() can now have more args than % conversions
  572. +  * removed HAVE_PRINTF_HD -- it was too obscure
  573. +  * 
  574.    * Revision 5.1  91/12/05  07:56:22  brennan
  575.    * 1.1 pre-release
  576.    * 
  577. ***************
  578. *** 26,32 ****
  579.   
  580.   static void  PROTO( print_cell, (CELL *, FILE *) ) ;
  581.   static STRING* PROTO( do_printf, (FILE *, char *, unsigned, CELL *) ) ;
  582. - static void  PROTO( arg_error, (char *, char *, char *) ) ;
  583.   static void  PROTO( bad_conversion, (int, char *, char *)) ;
  584.   
  585.   
  586. --- 30,35 ----
  587. ***************
  588. *** 130,142 ****
  589.   
  590.   /*-------------------------------------------------------*/
  591.   
  592. - static void  arg_error( few_or_many, who, format)
  593. -   char *few_or_many , *who, *format ;
  594. - {
  595. -   rt_error("too %s arguments passed to %s(\"%s\")",
  596. -     few_or_many, who, format) ;
  597. - }
  598. - 
  599.   static void bad_conversion(cnt, who, format)
  600.     int cnt ; 
  601.     char *who , *format ;
  602. --- 133,138 ----
  603. ***************
  604. *** 185,204 ****
  605.   
  606.     while ( 1 )
  607.     { 
  608. !     if ( fp )
  609.       {
  610.         while ( *q != '%' )
  611. !     if ( *q == 0 )
  612. !             if ( argcnt == 0 )  return (STRING *) 0 ;
  613. !             else arg_error("many", who, format) ;
  614.       else
  615.       { putc(*q,fp) ; q++ ; }
  616.       }
  617. !     else
  618.       {
  619.         while ( *q != '%' )
  620.       if ( *q == 0 )
  621. !         if ( argcnt == 0 ) /* done */
  622.           if ( target > sprintf_limit ) /* damaged */
  623.           {
  624.             /* hope this works */
  625. --- 181,198 ----
  626.   
  627.     while ( 1 )
  628.     { 
  629. !     if ( fp )  /* printf */
  630.       {
  631.         while ( *q != '%' )
  632. !     if ( *q == 0 )  return (STRING *) 0 ;
  633.       else
  634.       { putc(*q,fp) ; q++ ; }
  635.       }
  636. !     else  /* sprintf */
  637.       {
  638.         while ( *q != '%' )
  639.       if ( *q == 0 )
  640. !     {
  641.           if ( target > sprintf_limit ) /* damaged */
  642.           {
  643.             /* hope this works */
  644. ***************
  645. *** 214,220 ****
  646.             (void)memcpy(retval->str, sprintf_buff, SIZE_T(len)) ;
  647.             return retval ;
  648.           }
  649. !             else arg_error("many", who, format) ;
  650.       else  *target++ = *q++ ;
  651.       }
  652.          
  653. --- 208,214 ----
  654.             (void)memcpy(retval->str, sprintf_buff, SIZE_T(len)) ;
  655.             return retval ;
  656.           }
  657. !     }
  658.       else  *target++ = *q++ ;
  659.       }
  660.          
  661. ***************
  662. *** 259,273 ****
  663.         while ( scan_code[*(unsigned char*)q] == SC_DIGIT ) q++ ; 
  664.       }
  665.   
  666. !     if ( argcnt <= 0 )  arg_error("few", who, format) ;
  667.       l_flag = h_flag = 0 ;
  668.   
  669.       if ( *q == 'l' ) { q++ ; l_flag = 1 ; }
  670. - 
  671. - #if HAVE_PRINTF_HD
  672.       else
  673.       if ( *q == 'h' ) { q++ ; h_flag = 1 ; }
  674. - #endif
  675.   
  676.       switch( *q++ )
  677.       {
  678. --- 253,267 ----
  679.         while ( scan_code[*(unsigned char*)q] == SC_DIGIT ) q++ ; 
  680.       }
  681.   
  682. !     if ( argcnt <= 0 )  
  683. !         rt_error("not enough arguments passed to %s(\"%s\")",
  684. !           who, format) ;
  685. ! 
  686.       l_flag = h_flag = 0 ;
  687.   
  688.       if ( *q == 'l' ) { q++ ; l_flag = 1 ; }
  689.       else
  690.       if ( *q == 'h' ) { q++ ; h_flag = 1 ; }
  691.   
  692.       switch( *q++ )
  693.       {
  694. ***************
  695. *** 318,326 ****
  696.         case 'u' :
  697.               if ( cp->type != C_DOUBLE ) cast1_to_d(cp) ;
  698.               lval = (long) cp->dval ;
  699. - #if HAVE_PRINTF_HD
  700.           if ( h_flag ) lval &= 0xffff ;
  701. ! #endif
  702.               pf_type = l_flag ? PF_LD : PF_D ;
  703.               break ;
  704.       
  705. --- 312,319 ----
  706.         case 'u' :
  707.               if ( cp->type != C_DOUBLE ) cast1_to_d(cp) ;
  708.               lval = (long) cp->dval ;
  709.           if ( h_flag ) lval &= 0xffff ;
  710. ! 
  711.               pf_type = l_flag ? PF_LD : PF_D ;
  712.               break ;
  713.       
  714. *** /tmp/,RCSt1a12447    Tue Mar  3 17:14:57 1992
  715. --- scan.c    Fri Feb 21 14:16:58 1992
  716. ***************
  717. *** 12,17 ****
  718. --- 12,20 ----
  719.   
  720.   
  721.   /* $Log:    scan.c,v $
  722. +  * Revision 5.2  92/02/21  14:16:53  brennan
  723. +  * fix:  getline <=
  724. +  * 
  725.    * Revision 5.1  91/12/05  07:56:27  brennan
  726.    * 1.1 pre-release
  727.    * 
  728. ***************
  729. *** 354,363 ****
  730.   
  731.   
  732.         case  SC_LT  :  /* '<' */
  733.             if ( getline_flag )
  734.             { getline_flag = 0 ; ct_ret(IO_IN) ; }
  735. !           else
  736. !             test1_ret('=', LTE, LT) ;
  737.   
  738.         case  SC_GT  :  /* '>' */
  739.             if ( print_flag && paren_cnt == 0 )
  740. --- 357,368 ----
  741.   
  742.   
  743.         case  SC_LT  :  /* '<' */
  744. +       if ( next() == '=' ) ct_ret(LTE) ;
  745. +       else  un_next() ;
  746. + 
  747.             if ( getline_flag )
  748.             { getline_flag = 0 ; ct_ret(IO_IN) ; }
  749. !           else  ct_ret(LT) ;
  750.   
  751.         case  SC_GT  :  /* '>' */
  752.             if ( print_flag && paren_cnt == 0 )
  753. *** /tmp/,RCSt1a12450    Tue Mar  3 17:15:00 1992
  754. --- version.c    Tue Mar  3 16:42:30 1992
  755. ***************
  756. *** 11,16 ****
  757. --- 11,19 ----
  758.   ********************************************/
  759.   
  760.   /*$Log:    version.c,v $
  761. +  * Revision 5.3  92/03/03  16:42:23  brennan
  762. +  * patch 1
  763. +  * 
  764.    * Revision 5.2  92/01/22  05:34:10  brennan
  765.    * version 1.1
  766.    * 
  767. ***************
  768. *** 23,29 ****
  769.   #include "patchlev.h"
  770.   
  771.   #define  VERSION_STRING  \
  772. !   "mawk 1.1%s%s Dec 1991, Copyright (C) Michael D. Brennan\n\n"
  773.   
  774.   #define  DOS_STRING     ""
  775.   
  776. --- 26,32 ----
  777.   #include "patchlev.h"
  778.   
  779.   #define  VERSION_STRING  \
  780. !   "mawk 1.1%s%s Feb 1992, Copyright (C) Michael D. Brennan\n\n"
  781.   
  782.   #define  DOS_STRING     ""
  783.   
  784. *** /tmp/,RCSt1a12453    Tue Mar  3 17:15:01 1992
  785. --- rexp/rexp1.c    Fri Feb 21 11:55:18 1992
  786. ***************
  787. *** 11,16 ****
  788. --- 11,19 ----
  789.   ********************************************/
  790.   
  791.   /*$Log:    rexp1.c,v $
  792. +  * Revision 3.4  92/02/20  16:08:12  brennan
  793. +  * change new_TWO() to work around sun acc bug
  794. +  * 
  795.    * Revision 3.3  91/10/29  10:54:01  brennan
  796.    * SIZE_T
  797.    * 
  798. ***************
  799. *** 26,80 ****
  800.   
  801.   #include  "rexp.h"
  802.   
  803. ! static MACHINE *PROTO( new_TWO , (int) ) ;
  804.   
  805.   
  806. ! static  MACHINE  *new_TWO(type)
  807.     int type ;
  808.   { 
  809. !   static  MACHINE  x ;
  810.   
  811. -   x.start = (STATE *) RE_malloc(2*STATESZ) ;
  812. -   x.stop = x.start + 1 ;
  813. -   x.start->type = type ;
  814. -   x.stop->type = M_ACCEPT ;
  815. -   return &x ;
  816. - } ;
  817. - 
  818. - 
  819.   /*  build a machine that recognizes any  */
  820.   MACHINE  RE_any()
  821. ! { return  * new_TWO(M_ANY) ; }
  822.   
  823.   /*  build a machine that recognizes the start of string  */
  824.   MACHINE  RE_start()
  825. ! { return  * new_TWO(M_START) ; }
  826.   
  827.   MACHINE  RE_end()
  828. ! { return  * new_TWO(M_END) ; }
  829.   
  830.   /*  build a machine that recognizes a class  */
  831.   MACHINE  RE_class( bvp )
  832.     BV *bvp  ;
  833. ! { register MACHINE *p = new_TWO(M_CLASS) ;
  834.   
  835. !   p->start->data.bvp = bvp ;
  836. !   return *p ;
  837.   }
  838.   
  839. - 
  840.   MACHINE  RE_u()
  841. ! { return  *new_TWO(M_U) ; }
  842.   
  843.   MACHINE  RE_str( str, len)
  844.     char *str ;
  845.     unsigned len ;
  846. ! { register MACHINE *p = new_TWO(M_STR) ;
  847.   
  848. !   p->start->len = len ;
  849. !   p->start->data.str = str ;
  850. !   return *p ;
  851.   }
  852.   
  853.   /*  replace m and n by a machine that recognizes  mn   */
  854.   void  RE_cat( mp, np)
  855. --- 29,106 ----
  856.   
  857.   #include  "rexp.h"
  858.   
  859. ! static void PROTO( new_TWO , (int, MACHINE *) ) ;
  860.   
  861.   
  862. ! 
  863. ! /* initialize a two state machine */
  864. ! static  void new_TWO(type, mp)
  865.     int type ;
  866. +   MACHINE *mp ; /* init mp-> */
  867.   { 
  868. !   mp->start = (STATE *) RE_malloc(2*STATESZ) ;
  869. !   mp->stop = mp->start + 1 ;
  870. !   mp->start->type = type ;
  871. !   mp->stop->type = M_ACCEPT ;
  872. ! }
  873.   
  874.   /*  build a machine that recognizes any  */
  875.   MACHINE  RE_any()
  876. ! {
  877. !   MACHINE x ;
  878.   
  879. +   new_TWO(M_ANY, &x) ;
  880. +   return x ;
  881. + }
  882. + 
  883.   /*  build a machine that recognizes the start of string  */
  884.   MACHINE  RE_start()
  885. ! {
  886. !   MACHINE x ;
  887.   
  888. +   new_TWO(M_START, &x) ;
  889. +   return x ;
  890. + }
  891. + 
  892.   MACHINE  RE_end()
  893. ! {
  894. !   MACHINE x ;
  895.   
  896. +   new_TWO(M_END, &x) ;
  897. +   return x ;
  898. + }
  899. + 
  900.   /*  build a machine that recognizes a class  */
  901.   MACHINE  RE_class( bvp )
  902.     BV *bvp  ;
  903. ! { 
  904. !   MACHINE x ;
  905.   
  906. !   new_TWO(M_CLASS, &x) ;
  907. !   x.start->data.bvp = bvp ;
  908. !   return x ;
  909.   }
  910.   
  911.   MACHINE  RE_u()
  912. ! {
  913. !   MACHINE x ;
  914.   
  915. +   new_TWO(M_U, &x) ;
  916. +   return x ;
  917. + }
  918. + 
  919.   MACHINE  RE_str( str, len)
  920.     char *str ;
  921.     unsigned len ;
  922. ! { 
  923. !   MACHINE x ;
  924.   
  925. !   new_TWO(M_STR, &x) ;
  926. !   x.start->len = len ;
  927. !   x.start->data.str = str ;
  928. !   return x ;
  929.   }
  930. + 
  931.   
  932.   /*  replace m and n by a machine that recognizes  mn   */
  933.   void  RE_cat( mp, np)
  934. *** /tmp/,RCSt1a12456    Tue Mar  3 17:15:03 1992
  935. --- config/generic.h    Tue Mar  3 16:40:55 1992
  936. ***************
  937. *** 1,7 ****
  938.   
  939.   /********************************************
  940.   generic.h
  941. ! copyright 1991, Michael D. Brennan
  942.   
  943.   This is a source file for mawk, an implementation of
  944.   the AWK programming language.
  945. --- 1,7 ----
  946.   
  947.   /********************************************
  948.   generic.h
  949. ! copyright 1991, 1992.  Michael D. Brennan
  950.   
  951.   This is a source file for mawk, an implementation of
  952.   the AWK programming language.
  953. ***************
  954. *** 12,17 ****
  955. --- 12,20 ----
  956.   
  957.   
  958.   /* $Log:    generic.h,v $
  959. +  * Revision 4.4  92/03/03  16:40:54  brennan
  960. +  * remove HAVE_PRINTF_HD
  961. +  * 
  962.    * Revision 4.3  91/10/29  10:48:26  brennan
  963.    * version 1.09
  964.    * 
  965. ***************
  966. *** 50,57 ****
  967.      have matherr()
  968.      have strtod()
  969.      have fmod()
  970. - 
  971. -    printf and sprintf cannot handle "%hd"
  972.   
  973.   
  974.      divison by zero, overflow and library domain errors do not
  975. --- 53,58 ----
  976. *** /tmp/,RCSt1a12459    Tue Mar  3 17:15:05 1992
  977. --- config/Idefault.h    Tue Mar  3 16:40:58 1992
  978. ***************
  979. *** 1,7 ****
  980.   
  981.   /********************************************
  982.   Idefault.h
  983. ! copyright 1991, Michael D. Brennan
  984.   
  985.   This is a source file for mawk, an implementation of
  986.   the AWK programming language.
  987. --- 1,7 ----
  988.   
  989.   /********************************************
  990.   Idefault.h
  991. ! copyright 1991, 1992.  Michael D. Brennan
  992.   
  993.   This is a source file for mawk, an implementation of
  994.   the AWK programming language.
  995. ***************
  996. *** 12,17 ****
  997. --- 12,20 ----
  998.   
  999.   
  1000.   /* $Log:    Idefault.h,v $
  1001. +  * Revision 3.13  92/03/03  16:40:56  brennan
  1002. +  * remove HAVE_PRINTF_HD
  1003. +  * 
  1004.    * Revision 3.12  91/11/16  15:37:29  brennan
  1005.    * add NO_BINMODE
  1006.    * 
  1007. ***************
  1008. *** 131,141 ****
  1009.   
  1010.   #ifndef  HAVE_FCNTL_H
  1011.   #define  HAVE_FCNTL_H        1
  1012. - #endif
  1013. - 
  1014. - /* printf and sprintf don't recognize "%hd" */
  1015. - #ifndef  HAVE_PRINTF_HD
  1016. - #define  HAVE_PRINTF_HD        0
  1017.   #endif
  1018.   
  1019.   /* have pipes */
  1020. --- 134,139 ----
  1021. *** /dev/null    Tue Mar  3 12:53:03 1992
  1022. --- config/ultrix42mips.h    Tue Mar  3 12:35:23 1992
  1023. ***************
  1024. *** 0 ****
  1025. --- 1,32 ----
  1026. + 
  1027. + /********************************************
  1028. + ultrix42mips.h
  1029. + copyright 1992, Michael D. Brennan
  1030. + 
  1031. + This is a source file for mawk, an implementation of
  1032. + the AWK programming language.
  1033. + 
  1034. + Mawk is distributed without warranty under the terms of
  1035. + the GNU General Public License, version 2, 1991.
  1036. + ********************************************/
  1037. + 
  1038. + 
  1039. + /* $Log:    ultrix42mips.h,v $
  1040. +  * Revision 1.1  92/03/03  12:35:21  brennan
  1041. +  * Initial revision
  1042. +  * 
  1043. + */
  1044. + 
  1045. + 
  1046. + #ifndef   CONFIG_H
  1047. + #define   CONFIG_H    1
  1048. + 
  1049. + #define HAVE_PROTOS    1
  1050. + #define HAVE_STDLIB_H   1
  1051. + #define HAVE_STDARG_H   1
  1052. + 
  1053. + /* The only reason __STDC__ is not turned on is 
  1054. +    compiler doesn't recognize const  */
  1055. + 
  1056. + #include "config/Idefault.h"
  1057. + #endif /* CONFIG_H  */
  1058. *** /dev/null    Tue Mar  3 12:53:03 1992
  1059. --- config/next.h    Tue Feb 25 08:13:14 1992
  1060. ***************
  1061. *** 0 ****
  1062. --- 1,31 ----
  1063. + 
  1064. + /********************************************
  1065. + next.h
  1066. + 
  1067. + This is a source file for mawk, an implementation of
  1068. + the AWK programming language.
  1069. + 
  1070. + Mawk is distributed without warranty under the terms of
  1071. + the GNU General Public License, version 2, 1991.
  1072. + ********************************************/
  1073. + 
  1074. + /*
  1075. +   Next OS 2.1
  1076. + */
  1077. + 
  1078. + /* $Log:    next.h,v $
  1079. +  * Revision 1.1  92/02/25  08:13:12  brennan
  1080. +  * Initial revision
  1081. +  * 
  1082. + */
  1083. + 
  1084. + #ifndef  CONFIG_H
  1085. + #define  CONFIG_H    1
  1086. + 
  1087. + /* system compiler is gcc and has <stdlib.h> */
  1088. + #define  HAVE_STDLIB_H     1
  1089. + 
  1090. + #include "config/Idefault.h"
  1091. + 
  1092. + #endif
  1093. + 
  1094. *** /dev/null    Tue Mar  3 12:53:03 1992
  1095. --- config/sgi.h    Tue Feb 25 08:10:24 1992
  1096. ***************
  1097. *** 0 ****
  1098. --- 1,30 ----
  1099. + 
  1100. + /********************************************
  1101. + sgi.h
  1102. + 
  1103. + This is a source file for mawk, an implementation of
  1104. + the AWK programming language.
  1105. + 
  1106. + Mawk is distributed without warranty under the terms of
  1107. + the GNU General Public License, version 2, 1991.
  1108. + ********************************************/
  1109. + 
  1110. + /*
  1111. +   SGI  IRIX4.0.1
  1112. + */
  1113. + 
  1114. + /* $Log:    sgi.h,v $
  1115. +  * Revision 1.1  92/02/25  08:10:22  brennan
  1116. +  * Initial revision
  1117. +  * 
  1118. + */
  1119. + 
  1120. + #ifndef  CONFIG_H
  1121. + #define  CONFIG_H    1
  1122. + 
  1123. + #define  HAVE_STRTOD    0
  1124. + 
  1125. + #include "config/Idefault.h"
  1126. + 
  1127. + #endif
  1128. + 
  1129. *** /dev/null    Tue Mar  3 12:53:03 1992
  1130. --- config/apollo.h    Wed Sep 25 11:41:07 1991
  1131. ***************
  1132. *** 0 ****
  1133. --- 1,32 ----
  1134. + 
  1135. + /********************************************
  1136. + apollo.h
  1137. + copyright 1991, Michael D. Brennan
  1138. + 
  1139. + This is a source file for mawk, an implementation of
  1140. + the AWK programming language.
  1141. + 
  1142. + Mawk is distributed without warranty under the terms of
  1143. + the GNU General Public License, version 2, 1991.
  1144. + ********************************************/
  1145. + 
  1146. + /* 
  1147. +    compiled and tested on apollo SR10.3
  1148. + */
  1149. + 
  1150. + #ifndef   CONFIG_H
  1151. + #define   CONFIG_H    1
  1152. + 
  1153. + /* don't have IEEE hardware */
  1154. + #define   FPE_TRAPS_ON        1
  1155. + #define   FPE_ZERODIVIDE   FPE_FLTDIV_FAULT
  1156. + #define   FPE_OVERFLOW     FPE_FLTOVF_FAULT
  1157. + 
  1158. + /* compiler sets __STDC__ but really is not ansi */
  1159. + #undef  __STDC__
  1160. + 
  1161. + #include "config/Idefault.h"
  1162. + 
  1163. + 
  1164. + #endif  /* CONFIG_H  */
  1165. + 
  1166. *** /tmp/,RCSt1a12466    Tue Mar  3 17:15:09 1992
  1167. --- test/mawktest.bat    Tue Feb 25 08:35:48 1992
  1168. ***************
  1169. *** 47,49 ****
  1170. --- 47,50 ----
  1171.   echo if fc always encountered "no differences", then the tested mawk seems OK
  1172.   :done
  1173.   del temp$$
  1174. + set dat=
  1175. @//E*O*F diffs1//
  1176. chmod u=r,g=r,o=r diffs1
  1177.  
  1178. exit 0
  1179.  
  1180.  
  1181.  
  1182. exit 0 # Just in case...
  1183.